100 LETY=# 1000 PRINT"[147] ********************** 1001 [153]" ** ** 1002 PRINT" ** MINIMON 64 ** 1003 [153]" ** ** 1004 PRINT" ** FUER ** 1005 [153]" ** TINYCOMPILER ** 1006 PRINT" ** ** 1007 [153]" ** NSS 1985 ** 1008 PRINT" ** NH 080286 ** 1009 [153]" ** ** 1010 PRINT" ** VERSION $"; 1011 POKE53280,0 1012 GOSUB13020 1013 PRINT" ** 1014 [153]" ** ** 1015 POKE53281,0 1017 PRINT" ********************** 1060 [151]204,0 1070 [151]650,128 1080 [153]">"; 1090 [136]F[178]0 1100 [158]42336 1110 [136]Z[178]512 1120 [136]V[178][194](512) 1130 [139]V[178]0[167]1080 1140 [139]V[178]62[167]1160 1150 [137]1220 1160 [136]X[178]Z[170]1 1170 [136]C[178][194](X) 1180 [151]Z,C 1190 [139]C[178]0[167]1110 1200 [136]Z[178]Z[170]1 1210 [137]1160 1220 [139]V[178]77[167]3020 1230 [139]V[178]71[167]6020 1240 [139]V[178]88[167]4020 1242 [139]V[178]81[167]4020 1250 [139]V[178]76[167]5020 1260 [139]V[178]83[167]5020 1270 [139]V[178]70[167]7020 1280 [139]V[178]84[167]8020 1290 [139]V[178]72[167]9020 1300 [139]V[178]67[167]8020 2020 [136]J[178]0 2030 [136]K[178]J[170]J 2040 [136]K[178]K[170]J 2050 [136]T[178]K[170]4 2060 [141]10020 2070 [141]17000 2081 [136]J[178]J[170]1 2090 [139]J[179]8[167]2030 2100 [141]11020 2110 [139]C[178]28[167]2130 2120 [137]14020 2130 [136]S[178]1 2140 [136]A[178]1 2150 [136]G[178]0 2160 [136]T[178]4 2170 [141]12020 2180 [141]17000 2190 [136]D[178]G 2200 [136]J[178]0 2210 [136]K[178]J[170]J 2220 [136]K[178]K[170]J 2230 [136]A[178]6[170]K 2240 [136]S[178]3 2250 [136]G[178]0 2260 [136]T[178]A[170]1 2270 [141]12020 2280 [141]17000 2290 [136]E[178]D[170]J 2300 [151]E,G 2310 [136]J[178]J[170]1 2320 [139]J[179]8[167]2210 2330 [137]1080 3020 [136]T[178]1 3030 [141]10020 3040 [136]T[178]6 3050 [141]10020 3060 [141]17000 3070 [141]11020 3080 [139]C[178]11[167]3100 3090 [137]14020 3100 [136]S[178]1 3110 [136]A[178]3 3120 [136]G[178]0 3130 [136]T[178]12 3140 [141]12020 3150 [141]17000 3160 [136]H[178]G 3170 [136]S[178]1 3180 [136]A[178]8 3190 [136]G[178]0 3200 [141]12020 3210 [141]17000 3220 [136]Y[178]H 3230 [153]">"; 3240 [141]13020 3250 [153]" "; 3260 [136]I[178]0 3270 [136]D[178]H[170]I 3280 [136]Y[178][194](D) 3290 [141]13120 3300 [153]" "; 3310 [136]I[178]I[170]1 3320 [139]I[179]8[167]3270 3330 [151]780,13 3340 [158]65490 3350 [136]T[178][194](197) 3360 [139]T[178]63[167]1080 3370 [136]H[178]H[170]8 3380 [139]H[177]G[167]1080 3390 [137]3220 4020 [151]650,0 4030 [151]204,1 4040 [128] 5020 [136]T[178]1 5030 [136]D[178][194](513) 5040 [139]D[178]34[167]5080 5050 [151]211,T 5060 [153]"ON? 5070 GOTO1080 5080 LETM=0 5090 LETN=515+M 5100 LETT=M+4 5110 IFM>15THEN5050 5120 LETD=PEEK(N) 5130 IFD=34THEN5160 5140 LETM=M+1 5150 GOTO5090 5160 LETT=M+4 5170 GOSUB10020 5180 LETW=17 5190 IFV=83THEN5220 5200 LETW=7 5210 IFV=76THEN5260 5220 LETT=T+3 5230 GOSUB10020 5240 LETT=T+5 5250 GOSUB10020 5260 GOSUB17000 5270 GOSUB11020 5280 LETN=M+W 5290 IFC=NTHEN5320 5300 LETT=N 5310 GOTO5050 5320 LETS=3 5330 LETA=M+6 5340 LETG=0 5350 LETT=A+1 5360 GOSUB12020 5370 GOSUB17000 5380 LETO=G 5390 LETP=M+1 5400 IFV=76THEN5720 5410 LETS=1 5420 LETA=M+9 5430 LETG=0 5440 LETT=A+3 5450 GOSUB12020 5460 GOSUB17000 5470 GOSUB15020 5480 LETR=H 5490 LETQ=L 5500 LETA=M+14 5510 LETG=0 5520 LETT=A+3 5530 LETS=1 5540 GOSUB12020 5550 GOSUB17000 5560 GOSUB15020 5570 LETA=PEEK(45) 5580 LETB=PEEK(46) 5590 GOSUB16020 5600 POKE251,Q 5610 POKE252,R 5620 POKE780,251 5630 POKE781,L 5640 POKE782,H 5650 SYS65496 5680 POKE45,A 5690 POKE46,B 5700 .C 5710 GOTO1080 5720 PRINT"[145][145] 5730 [141]16020 5740 [151]780,0 5750 [158]65493 5780 [137]5700 6020 [136]T[178]1 6030 [141]10020 6040 [141]17000 6050 [141]11020 6060 [139]C[178]6[167]6080 6070 [137]14020 6080 [136]S[178]1 6090 [136]A[178]3 6100 [136]G[178]0 6110 [136]T[178]12 6120 [141]12020 6130 [141]17000 6140 [158]G 6180 [137]1080 7020 [136]B[178]513 7030 [136]D[178][194](B) 7040 [139]D[178]32[167]7060 7050 [137]2020 7060 [136]T[178]6 7070 [141]10020 7080 [136]T[178]11 7090 [141]10020 7100 [141]17000 7110 [141]11020 7120 [139]C[178]14[167]7140 7130 [137]14020 7140 [136]S[178]1 7150 [136]A[178]3 7160 [136]G[178]0 7170 [136]T[178]15 7180 [141]12020 7190 [136]H[178]G 7200 [136]S[178]1 7210 [136]A[178]8 7220 [136]G[178]0 7230 [141]12020 7240 [136]I[178]G 7250 [136]S[178]3 7260 [136]A[178]13 7270 [136]G[178]0 7280 [141]12020 7290 [141]17000 7300 [151]H,G 7310 [136]H[178]H[170]1 7320 [139]H[177]I[167]1080 7330 [137]7300 8020 [136]T[178]1 8030 [141]10020 8040 [136]T[178]6 8050 [141]10020 8060 [136]T[178]11 8070 [141]10020 8080 [141]17000 8090 [141]11020 8100 [139]C[178]16[167]8120 8110 [141]14020 8120 [136]S[178]1 8130 [136]A[178]3 8140 [136]G[178]0 8150 [136]T[178]15 8160 [141]12020 8170 [136]H[178]G 8180 [136]S[178]1 8190 [136]A[178]8 8200 [136]G[178]0 8210 [141]12020 8220 [136]I[178]G 8230 [136]S[178]1 8240 [136]A[178]13 8250 [136]G[178]0 8260 [141]12020 8270 [141]17000 8280 [139]V[178]67[167]8370 8290 [136]J[178][194](H) 8300 [151]G,J 8310 [136]H[178]H[170]1 8320 [136]G[178]G[170]1 8330 [139]H[177]I[167]1080 8340 [137]8290 8370 [136]J[178][194](H) 8380 [136]K[178][194](G) 8390 [139]J[178]K[167]8410 8400 [137]8470 8410 [136]H[178]H[170]1 8420 [136]Q[178][194](197) 8430 [139]Q[178]63[167]9740 8440 [136]G[178]G[170]1 8450 [139]H[177]I[167]9740 8460 [137]8370 8470 [136]Y[178]H 8480 [141]13020 8490 [153]" "; 8500 [137]8410 9020 [136]T[178]1 9030 [141]10020 9040 [136]T[178]6 9050 [141]10020 9060 [136]T[178]11 9070 [141]10020 9080 [141]17000 9090 [141]11020 9100 [139]C[178]14[167]9220 9110 [136]T[178]14 9120 [141]10020 9130 [141]17000 9140 [141]11020 9150 [139]C[178]17[167]9220 9160 [136]T[178]17 9170 [141]10020 9180 [141]17000 9190 [141]11020 9200 [139]C[178]20[167]9220 9210 [137]14020 9220 [136]S[178]1 9230 [136]A[178]3 9240 [136]G[178]0 9250 [136]T[178]C[171]1 9260 [141]12020 9270 [136]H[178]G 9280 [136]S[178]1 9290 [136]A[178]8 9300 [136]G[178]0 9310 [141]12020 9320 [136]I[178]G 9330 [136]S[178]3 9340 [136]A[178]13 9350 [136]G[178]0 9360 [141]12020 9370 [136]J[178]G 9380 [141]17000 9390 [139]T[178]13[167]9520 9400 [136]S[178]3 9410 [136]A[178]16 9420 [136]G[178]0 9430 [141]12020 9440 [136]K[178]G 9450 [139]F[178]1[167]1080 9460 [139]T[178]16[167]9520 9470 [136]S[178]3 9480 [136]A[178]19 9490 [136]G[178]0 9500 [141]12020 9510 [141]17000 9520 [136]L[178][194](H) 9530 [136]O[178]H[170]1 9540 [136]P[178]H[170]2 9550 [136]M[178][194](O) 9560 [136]N[178][194](P) 9570 [139]T[178]13[167]9630 9580 [139]T[178]16[167]9610 9590 [139]N[178]G[167]9610 9600 [137]9640 9610 [139]M[178]K[167]9630 9620 [137]9640 9630 [139]L[178]J[167]9700 9640 [136]H[178]H[170]1 9650 [136]Q[178][194](197) 9660 [139]Q[178]63[167]9740 9670 [139]H[177]I[167]9740 9680 [139]H[178]0[167]9740 9690 [137]9520 9700 [136]Y[178]H 9710 [141]13020 9720 [153]" "; 9730 [137]9640 9740 .C 9750 [137]1080 10020 [136]B[178]512[170]T 10030 [136]D[178][194](B) 10040 [139]D[178]32[167]10080 10050 [151]211,T 10060 [153]"ON? 10070 LETF=1 10080 RETURN 11020 LETC=0 11030 LETB=512+C 11031 LETB=512+C 11040 LETB=PEEK(B) 11050 IFB=0THEN11080 11060 LETC=C+1 11070 GOTO11030 11080 RETURN 12020 LETB=511+A 12030 LETC=PEEK(B) 12040 IFC<65THEN12080 12050 IFC>70THEN12080 12060 LETC=C-55 12070 GOTO12110 12080 IFC<48THEN12290 12090 IFC>57THEN12290 12100 LETC=C-48 12110 IFS=1THEN12150 12120 IFS=2THEN12180 12130 IFS=3THEN12210 12140 IFS=4THEN12230 12150 LETU=4096 12160 GOSUB12310 12170 GOTO12230 12180 LETU=256 12190 GOSUB12310 12200 GOTO12230 12210 LETU=16 12220 GOSUB12310 12230 LETG=G+C 12240 IFS=4THEN12280 12250 LETS=S+1 12260 LETA=A+1 12270 GOTO12020 12280 RETURN 12290 GOSUB10050 12300 RETURN 12310 LETC=C*U 12320 RETURN 13020 LETU=4096 13030 GOSUB13290 13040 GOSUB13220 13050 GOSUB13310 13060 LETY=Y-B 13070 LETU=256 13080 GOSUB13290 13090 GOSUB13220 13100 GOSUB13310 13110 LETY=Y-B 13120 LETU=16 13130 GOSUB13290 13140 GOSUB13220 13150 GOSUB13310 13160 LETY=Y-B 13170 LETA=Y 13180 GOSUB13220 13190 LETB=A 13200 LETY=Y-B 13210 RETURN 13220 IFA>9THEN13270 13230 LETC=A+48 13240 POKE780,C 13250 SYS65490 13260 RETURN 13270 LETC=A+55 13280 GOTO13240 13290 LETA=Y/U 13300 RETURN 13310 LETB=A*U 13320 RETURN 14020 LET T=C-1 14030 GOSUB10050 14040 GOTO1080 15020 LETH=G/256 15030 LETI=H*256 15040 LETL=G-I 15050 RETURN 16020 POKE186,O 16030 POKE185,1 16040 POKE780,P 16050 POKE781,2 16060 POKE782,2 16070 SYS65469 17000 IFF=1THEN17020 17010 RETURN 17020 .R 17030 GOTO1080